4machine Zspeed 4openwave "text1" "text2" "cover" -2925,1890,15,3120 -2355,3090,90,4320 2265,5145,2445,5250 pfirst -2925,1890,15,3120 plast 810,1890,3750,3120 alter -2355,3090,90,4320 825,3090,3270,4320 tbkMCIchk ("close wavefile","",1,1) enterpage leavepage enterpage text1 text2 cover text1 text2 cover text1 text1 pfirst text1 plast alter text1 text2 text2 pfirst text2 plast alter text2 openwave speed machine leavepage close wavefile tbkMCIchk openwave time3 :PHYSSIZE :PHYSSIZE SetSpecialCursor("Special2") "vo1" PlayVideo("\animatio\time3.avi"),(" eatclicks() mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup PlayVideo \animatio\time3.avi time3 eatclicks :PHYSSIZE :PHYSSIZE text1 pfirst -2355,3090,90,4320 plast 825,3090,3270,4320 Other frame animations are 3-dimensional like this one. text2 pfirst 825,3090,3270,4320 plast 0,-210,9615,7245 3D animations add the dimension of depth and reality. SetSpecialCursor("Special2") "vo3" "vo4" 4openwave tbkMCIchk ("close wavefile","",1,1) \animatio\a3. k type waveaudio alias xplay 0 hold","",1,1) mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup close wavefile tbkMCIchk open \animatio\a3.wav type waveaudio alias wavefile tbkMCIchk play wavefile from 0 hold tbkMCIchk openwave :PHYSSIZE cover plast -2925,1890,15,3120 pfirst 2265,5145,2445,5250 810,1890,3750,3120 :PHYSSIZE text1 pfirst 1815,3375,4140,3915 plast 1815,3375,4140,3915 In this lesson, you will learn about:n making mu text2 plast 1815,2760,4320,3180 pfirst -2130,2760,375,3180 Object Animation reminder :PHYSSIZE text1 plast 855,1770,3450,2475 pfirst -2415,1770,180,2475 Remember to click on these buttons whenever you see them in the lesson. SetSpecialCursor("Special2") "vo1" tbkMCIchk("close video1","",1,1) theFile "\animatio\cheshire.avi" strOpen " && 2&& "type AVIVideo alias ^ style popup " && sysClientHandle S,"",1,1) tbkMCIPositionWindow( "tavia","") play 0","",1,1) mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup close video1 tbkMCIchk \animatio\cheshire.avi type AVIVideo alias video1 style popup parent tbkMCIchk tavia tbkMCIPositionWindow play video1 from 0 tbkMCIchk SetSpecialCursor video1 strOpen theFile :PHYSSIZE tavia :PHYSSIZE text3 pfirst -2415,1770,180,2475 plast 855,1770,3450,2475 Frame Animation -2130,3375,195,3915 :PHYSSIZE cover plast 0,-210,9615,7245 pfirst 1605,4575,4140,5955 6120,4575,8655,5955 0,-210,9615,7245 2760,4650,3000,4905 SetSpecialCursor("Special2") "vo2" 4machine Zspeed playvideo ("\animatio\bug.avi"),("bugs") "cover" pfirst 2760,4650,3000,4905 plast 0,-210,9615,7245 alter ZstrOpen, theFile " && $ && "type AVIVideo alias video1 style popup " && sysClientHandle tbkMCIchk(stropen,"",1,1) tbkMCIPositionWindow( `,"","") vfullscreen 0 wait","",1,1) j"close ","",1,1) 0,-210,9615,7245 2760,4650,3000,4905 mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup playvideo \animatio\bug.avi speed machine SetSpecialCursor("Special2") "vo2" 4machine Zspeed playvideo ("\animatio\bug.avi"),("bugs") "cover" pfirst 2760,4650,3000,4905 plast 0,-210,9615,7245 alter ZstrOpen, theFile " && && "type AVIVideo alias video1 style popup " && sysClientHandle tbkMCIchk(stropen,"",1,1) tbkMCIPositionWindow( \,"","") pfullscreen 0 wait","",1,1) d"close ","",1,1) 0,-210,9615,7245 2760,4650,3000,4905 mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup cover cover pfirst cover plast alter cover \animatio\bug.avi type AVIVideo alias video1 style popup parent stropen tbkMCIchk tbkMCIPositionWindow play video1 fullscreen from 0 wait tbkMCIchk close video1 tbkMCIchk cover pfirst cover plast alter cover cover video1 strOpen theFile speed machine SSIZE tavia :PHYSSIZE SetSpecialCursor("Special2") checkanswer eatclicks() "frame" animation" pfirst 5730,3240,8505,4920 plast 9690,2655,9870,2805 alter "wrong" 5730,3240,8505,4920 9690,2475,9900,2670 5730,3240,8505,4920 mouseLeave mouseEnter buttonup checkanswer mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttonup checkanswer eatclicks checkanswer answer frame frame animation right right pfirst right plast alter right right wrong wrong pfirst wrong plast alter wrong right wrong wrong answer answer answer :PHYSSIZE 4machine Zspeed Zspeed2 "text1" "text2" "text3" "arrow2" "arrow3" "arrow1" -540,1575,-30,2175 1680,1575,2190,2175 5865,2130,6375,2730 pfirst -540,1575,-30,2175 plast 1680,1575,2190,2175 alter 1680,1575,2190,2175 1680,3105,2190,3705 1680,3405,2190,4005 5880,3405,6390,4005 5880,3405,6390,4005 5865,2130,6375,2730 5865,2130,6375,2730 5160,2130,5670,2730 5160,2130,5670,2730 5160,3450,5670,4050 5160,3450,5670,4050 1680,3450,2190,4050 1680,3450,2190,4050 1680,4425,2190,5025 enterpage enterpage text1 text2 text3 arrow2 arrow3 arrow1 arrow2 arrow3 arrow1 pfirst arrow1 plast alter arrow1 text1 arrow2 arrow2 pfirst arrow2 plast alter arrow2 arrow2 pfirst arrow2 plast alter arrow2 arrow2 pfirst arrow2 plast alter arrow2 text2 arrow3 arrow3 pfirst arrow3 plast alter arrow3 arrow3 pfirst arrow3 plast alter arrow3 arrow3 pfirst arrow3 plast alter arrow3 arrow3 pfirst arrow3 plast alter arrow3 text3 speed2 speed machine 1680,3450,2190,4050 text1 plast 585,1515,3150,2685 pfirst 585,-1050,3150,120 Object animation is the movement of unchanged text and objects around the screen. text2 pfirst 585,-1050,3150,120 plast 585,1515,3150,2685 You have seen several examples of this type of animation throughout this program.. text3 pfirst 585,-1050,3150,120 plast 585,1515,3150,2685 This type of animation is relatively easy to develop. Some type of animation option is included in most multimedia presentation programs. arrow1 plast -540,1575,-30,2175 pfirst text3 pfirst arrow2 plast 5865,2130,6375,2730 pfirst 5880,3405,6390,4005 arrow3 plast 1680,3450,2190,4050 pfirst 1680,1575,2190,2175 1680,4425,2190,5025 585,-1050,3150,120 plast 585,1515,3150,2685 multimedia presentation programs.......................................................................................................... 1680,3450,2190,4050 SetSpecialCursor ("Special2") playwave ("\animatio\hwan3. ouseEnter mouseLeave mouseEnter buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttonup vplaywave \animatio\hwan3.wav text3 text1 plast 855,1770,3450,2475 pfirst -2415,1770,180,2475 Remember to click on these buttons whenever you see them in the lesson. SetSpecialCursor("Special2") "vo1" tbkMCIchk("close video1","",1,1) theFile "\animatio\cheshire.avi" strOpen " && 2&& "type AVIVideo alias ^ style popup " && sysClientHandle S,"",1,1) tbkMCIPositionWindow( "tavia","") play 0","",1,1) mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup close video1 tbkMCIchk \animatio\cheshire.avi type AVIVideo alias video1 style popup parent tbkMCIchk tavia tbkMCIPositionWindow play video1 from 0 tbkMCIchk SetSpecialCursor video1 strOpen theFile :PHYSSIZE 4machine Zspeed "text1" "text2" "text3" "bul1" "bul2" "reminder" -2415,1770,180,2475 -2130,3375,195,3915 -2130,2760,375,3180 pfirst -2415,1770,180,2475 plast 855,1770,3450,2475 alter -2130,2760,375,3180 1815,2760,4320,3180 -2130,3375,195,3915 1815,3375,4140,3915 theFile "\animatio\al01.avi" strOpen " && .&& "type AVIVideo alias video1 style popup " && sysClientHandle tbkMCIchk( _,"",1,1) tbkMCIPositionWindow( "tavia","") B"play 0","",1,1) "close ","",1,1) enterpage leavepage enterpage text1 text2 text3 reminder text1 text2 text3 text1 text1 pfirst text1 plast alter text1 text3 text3 pfirst text3 plast alter text3 text2 text2 pfirst text2 plast alter text2 \animatio\al01.avi type AVIVideo alias video1 style popup parent tbkMCIchk tavia tbkMCIPositionWindow play video1 from 0 tbkMCIchk reminder video1 strOpen theFile speed machine leavepage close video1 tbkMCIchk 4machine Zspeed 4openwave "text1" "text2" "text3" 810,1740,4755,3000 735,3135,4680,4395 1605,4575,4140,5955 pfirst 810,1740,4755,3000 plast 4905,1755,8850,3015 alter 735,3135,4680,4395 4905,3135,8850,4395 1605,4575,4140,5955 6120,4575,8655,5955 tbkMCIchk ("close wavefile","",1,1) enterpage leavepage enterpage text1 text2 text3 text1 text2 text3 text1 text1 pfirst text1 plast alter text1 text2 text2 pfirst text2 plast alter text2 text3 text3 pfirst text3 plast alter text3 openwave speed machine leavepage close wavefile tbkMCIchk openwave strOpen theFile speed machine pfirst text2 plast alter text2 \animatio\al01.avi type AVIVideo alias video1 style popup parent tbkMCIchk tavia tbkMCIPositionWindow play video1 from 0 tbkMCIchk reminder video1 strOpen theFile speed machine leavepage close video1 tbkMCIchk leavepage close video1 tbkMCIchk :PHYSSIZE :PHYSSIZE text1 plast 4905,3135,8850,4395 pfirst 735,3135,4680,4395 Another form of animation is called morphing (short for metamorphosing). text2 pfirst 1605,4575,4140,5955 plast 6120,4575,8655,5955 Morphing involves a transition between two objects over a given number of frames. text3 pfirst 2760,4650,3000,4905 plast 810,1740,4755,3000 The first object appears to turn into the second object.. SetSpecialCursor("Special2") "vo1" "vo2" 4openwave tbkMCIchk ("close wavefile","",1,1) \animatio\a4. k type waveaudio alias xplay 0 hold","",1,1) mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup close wavefile tbkMCIchk open \animatio\a4.wav type waveaudio alias wavefile tbkMCIchk play wavefile from 0 hold tbkMCIchk openwave :PHYSSIZE :PHYSSIZE :PHYSSIZE cover plast 0,-210,9615,7245 pfirst 0,-210,9615,7245 4905,1755,8850,3015 4905,1755,8850,3015 5,-1050,3150,120 plast 585,1515,3150,2685 multimedia presentation programs.......................................................................................................... 1680,3450,2190,4050 SetSpecialCursor ("Special2") playwave ("\a mouseLeave SetSpecialCursor buttonup vplaywave \animatio\hwan3.wav 4machine Zspeed "text1" "text2" 7335,1755,8085,3060 2415,3810,4950,5865 pfirst 7335,1755,8085,3060 plast 1665,1755,4665,3060 alter 2415,3810,4950,5865 6510,3810,9045,5865 enterpage enterpage text1 text2 text1 text2 text1 text1 pfirst text1 plast alter text1 text2 text2 pfirst text2 plast alter text2 speed machine text1 plast 6510,3810,9045,5865 pfirst 2415,3810,4950,5865 Some frame animations are 2-dimensional like the ones shown here. text2 pfirst 6510,3810,9045,5865 plast 7335,1755,8085,3060 These 2D animations are fun, and add interest to a multimedia program. firering :PHYSSIZE :PHYSSIZE SetSpecialCursor("Special2") "vo2" tbkMCIchk (" \animatio\fuse.wav type waveaudio alias wavefile","",1,1) Hplay 0 hold","",1,1) PlayVideo("\ birering.avi"),("firering") close eatclicks() mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup open \animatio\fuse.wav type waveaudio alias wavefile tbkMCIchk play wavefile from 0 hold tbkMCIchk PlayVideo \animatio\firering.avi firering close wavefile tbkMCIchk eatclicks :PHYSSIZE rabbit :PHYSSIZE X o 8"m :PHYSSIZE : Q 8"m SetSpecialCursor("Special2") "vo1" PlayVideo("\animatio\rbtndog.avi"),("rabbit") eatclicks() mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup PlayVideo \animatio\rbtndog.avi rabbit eatclicks X o 8"m :PHYSSIZE 1665,1755,4665,3060 :PHYSSIZE 4machine Zspeed tbkMCIchk (" \animatio\plane2.wav type waveaudio alias wavefile","",1,1) Jplay 0 hold","",1,1) yeildApp () pfirst 5355,4783,7866,6075 plast 195,4783,2706,6075 alter 195,4783,2706,6075 195,1333,2706,2625 195,1333,2706,2625 5355,1333,7866,2625 5355,1333,7866,2625 5355,4783,7866,6075 close enterpage leavepage enterpage open \animatio\plane2.wav type waveaudio alias wavefile tbkMCIchk play wavefile from 0 hold tbkMCIchk yeildApp plane pfirst plane plast alter plane plane pfirst plane plast alter plane plane pfirst plane plast alter plane plane pfirst plane plast alter plane speed machine leavepage close wavefile tbkMCIchk SetSpecialCursor("Special2") 4flag, travel, obj, mpos ! -- EUB ) -- newpos & "," & & "," & moves ) --EUB startbnds xoff yoff ci <= newx newy -- -- [lines --EUB useLeave mouseEnter buttonDown buttonStillDown mouseLeave buttonUp mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttonDown newpos travel buttonStillDown newpos travel buttonUp object 1 object 1 object 1 enterPage lines startbnds moves travel 4machine Zspeed Zspeed2 "connector" "plane" 7665,2556,10375,4110 "goldflag" 2880,2775,6870,3795 6720,2865,7755,3645 "plane1" -7485,2556,10,4110 "plane2" "connector2" "greenflag" tbkMCIchk(" \animatio\ |.wav type waveaudio alias wavefile","",1,1) Eplay 0 hold","",1,1) yeildApp() pfirst -7485,2556,10,4110 plast -4575,2556,2920,4110 alter -4575,2556,2920,4110 -2535,1836,4960,3390 -2535,1836,4960,3390 75,3201,7570,4755 75,3201,7570,4755 2880,2556,10375,4110 7665,2556,10375,4110 9780,2556,12490,4110 -660,3726,2050,5280 1995,4080,3030,4860 2880,3960,6870,4980 "plane3" 9825,3726,17355,5280 9825,3726,17355,5280 5970,3726,13500,5280 5970,3726,13500,5280 3600,4746,11130,6300 3600,4746,11130,6300 -660,3726,6870,5280 -660,3726,2050,5280 -2295,3726,415,5280 ("close enterpage leavepage enterpage connector plane plane goldflag connector plane goldflag connector group plane1 plane1 plane2 connector2 greenflag open \animatio\plane1.wav type waveaudio alias wavefile tbkMCIchk play wavefile from 0 hold tbkMCIchk yeildApp plane1 pfirst plane1 plast alter plane1 plane1 pfirst plane1 plast alter plane1 plane1 pfirst plane1 plast alter plane1 plane1 pfirst plane1 plast alter plane1 Wungroup connector plane pfirst plane plast alter plane plane plane2 connector2 greenflag plane2 connector2 greenflag plane2 connector2 greenflag group plane3 plane3 plane3 pfirst plane3 plast alter plane3 plane3 pfirst plane3 plast alter plane3 plane3 pfirst plane3 plast alter plane3 Wungroup connector2 plane2 pfirst plane2 plast alter plane2 plane2 speed2 speed machine leavepage close wavefile tbkMCIchk :PHYSSIZE SetSpecialCursor("Special2") eatclicks() ouseEnter mouseLeave mouseEnter buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttonup eatclicks SetSpecialCursor("Special2") gotomain ouseEnter mouseLeave mouseEnter buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttonup kgotomain SetSpecialCursor("Special2") exitbook ouseEnter mouseLeave mouseEnter buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttonup 9rexitbook SetSpecialCursor("Special2") eatclicks() ouseEnter mouseLeave mouseEnter buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttonup eatclicks title plast 1980,510,4635,1185 . pfirst 9630,510,12285,1185 x P u Animation SetSpecialCursor("Special2") eatclicks() ouseEnter mouseLeave mouseEnter buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttonup eatclicks SetSpecialCursor("Special2") "vo2" 4machine Zspeed "cover" pfirst 2760,4650,3000,4905 plast 0,-210,9615,7245 alter ZstrOpen, theFile "\animatio\bug.avi" " && / && "type AVIVideo alias video1 style popup " && sysClientHandle tbkMCIchk(stropen,"",1,1) tbkMCIPositionWindow( \,"","") <"play qfullscreen 0 wait","",1,1) e"close ","",1,1) 0,-210,9615,7245 2760,4650,3000,4905 mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup cover cover pfirst cover plast alter cover \animatio\bug.avi type AVIVideo alias video1 style popup parent stropen tbkMCIchk tbkMCIPositionWindow play video1 fullscreen from 0 wait tbkMCIchk close video1 tbkMCIchk cover pfirst cover plast alter cover cover video1 strOpen theFile speed machine X o 8"m :PHYSSIZE : Q 8"m SetSpecialCursor("Special2") "vo1" PlayVideo("\animatio\rbtndog.avi"),("rabbit") eatclicks() mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup PlayVideo \animatio\rbtndog.avi rabbit eatclicks X o 8"m :PHYSSIZE Times New Roman Times New Roman System Times New Roman Arial Arial Arial Arial Arial Professor MULTIMEDIA Arial -- Script bring the ToolBook screen full EnterBook -- handler. Will work 4resolution. -- Use each "PMM.SBK" Sysbooks "TBKMM. initbook resources c"&Utility" e"Edit &Page ;Object e"&Get Bounds Selection" c"&Style" e"Arial 14 Field" EditPageScript EditBookScript EditObjectScript <> "" GetBoundsOfSelection ZoldSelect -5,-5 -2,-2 "temp" split_groups objlist Zretval theobj Arial14Field changeFieldFormat " %",14, newFace, newSize, ZtheObj initBook 4curstep 4clickable 4nonclickable -- need 1 -- Arrow buttoncolor 0,75.3125,0 linkDLL "TBKWIN. INT xUnitsFromPixels( yUnitsFromPixels( Suser" GetSystemMetrics( aPeekMessage(POINTER,WORD, -- these functions allocating global memory kernel" L GlobalAlloc( [DWORD) n GlobalLock( y GlobalUnlock( GlobalFree( A GetMyFlags = GetWinFlags() X"mycursor.dll" SetSpecialCursor(STRING) GetSpecialCursor() width height capHeight getSystemMetrics(4) resize borders bwidth bheight -- Open maximum -1* L,-1* clientarea_y 17)+28 clientarea_x 16)+8 -- Convert pixels units. clientarea_y_units sysMagnification, clientarea_x_units -- Define GetProcessor config k2) <>0 retvalue 4machine -- General purpose 4-wide stuff gotomain location 8"\mainmenu\ .tbk" -- PlayWave -- Plays f passed wave file -- Waits finish 4returning -- opens closes waveaudio device -- will abort ferror message -- already theFile ZstrOpen " && &&& "type }alias wavefile" tbkMCIchk( =,"",1,1) "play 0 wait","",1,1) G,"",1,1) eatclicks () a Video -- Need video ( PlayVideo ,thePlace " && AVIVideo video1 style popup " && sysClientHandle ,"",1,1) tbkMCIPositionWindow( ","",1,1) eatClicks() -- PlayAnimation: animation ( {which holds place ( " && anim1 ,"",1,1) c:\toolbook\flow.fli ","",1,1) ","",1,1) -- Alter: This one does {animations alter obj,slice ZCx1,Cx2,Cy1,Cy2,Gx1,Gx2,Gy1,Gy2 ZIx1,Ix2,Iy1,Iy2 going Plast coming Pfirst newBounds yieldApp() -- default -- locks -- unlocks -- If use exitbook objectFromPoint( -- ignore xreleased over Field enterbook changeFieldFormat initBook EditBookScript resources author reader EditObjectScript gotomain PlayWave EditPageScript PlayVideo PlayAnimation alter GetBoundsOfSelection leavepage enterpage exitbook Arial14Field mouseleave mouseenter groups split_groups GetProcessor enterbook PMM.SBK PMM.SBK TBKMM.SBK TBKMM.SBK ulinitbook resources &Utility Edit &Page Script &Utility Edit &Book Script &Utility Edit &Object Script &Utility &Get Bounds of Selection &Utility &Style Arial 14 Field &Style EditPageScript EditBookScript EditObjectScript GetBoundsOfSelection clear oldSelect split_groups group Wungroup theobj retval objlist Arial14Field changeFieldFormat Arial changeFieldFormat theObj objlist newSize newFace initBook TBKWIN.DLL xUnitsFromPixels yUnitsFromPixels GetSystemMetrics PeekMessage kernel GlobalAlloc GlobalLock GlobalUnlock GlobalFree GetMyFlags GetWinFlags mycursor.dll SetSpecialCursor GetSpecialCursor GetSystemMetrics GetSystemMetrics getSystemMetrics GetSystemMetrics GetSystemMetrics GetSystemMetrics GetSystemMetrics yUnitsFromPixels xUnitsFromPixels clientarea_x_units clientarea_y_units clientarea_x clientarea_y bheight bwidth capHeight height width buttoncolor nonclickable clickable curstep GetProcessor GetMyFlags retvalue config resources GetProcessor machine author reader ulinitBook gotomain \mainmenu\mainmenu.tbk location PlayWave type waveaudio alias wavefile tbkMCIchk play wavefile from 0 wait tbkMCIchk close wavefile tbkMCIchk eatclicks strOpen theFile PlayVideo type AVIVideo alias video1 style popup parent tbkMCIchk tbkMCIPositionWindow play video1 from 0 wait tbkMCIchk close video1 tbkMCIchk eatClicks video1 strOpen thePlace theFile PlayAnimation alias anim1 style popup tbkMCIchk anim1 tbkMCIPositionWindow play anim1 wait tbkMCIchk close anim1 tbkMCIchk strOpen thePlace theFile alter Plast Pfirst yieldApp newBounds coming going slice leavepage enterpage exitbook location mouseleave SetSpecialCursor mouseenter SetSpecialCursor -- Professor MULTIMEDIA Version 1.00 * -- Copyright (c) Individual Software Inc. 1992-1993 All Rights Reserved * -- This document cproprietary confidential information. -- parts the computer program embodies may be way copied, duplicated, reproduced, translated a different -- programming language, distributed person, company, -- corporation without prior written consent -- Script bring ToolBook screen full EnterBook -- handler. Will work 5resolution. -- Use each "PMM.SBK" Sysbooks "TBKMM. initbook resources c"&Utility" e"Edit &Page ;Object e"&Get Bounds Selection" c"&Style" e"Arial 14 Field" EditPageScript EditBookScript EditObjectScript <> "" GetBoundsOfSelection ZoldSelect -5,-5 -2,-2 "temp" split_groups objlist Zretval theobj Arial14Field changeFieldFormat " %",14, newFace, newSize, ZtheObj initBook 4curstep 4clickable 4nonclickable -- need 1 -- Arrow buttoncolor 0,75.3125,0 linkDLL "TBKWIN. INT xUnitsFromPixels( yUnitsFromPixels( Suser" GetSystemMetrics( aPeekMessage(POINTER,WORD, -- these functions allocating global memory kernel" L GlobalAlloc( [DWORD) n GlobalLock( y GlobalUnlock( GlobalFree( A GetMyFlags = GetWinFlags() X"mycursor.dll" SetSpecialCursor(STRING) GetSpecialCursor() width height capHeight getSystemMetrics(4) resize borders bwidth bheight -- Open maximum -1* L,-1* clientarea_y 17)+28 clientarea_x 16)+8 -- Convert pixels units. clientarea_y_units sysMagnification, clientarea_x_units -- Define GetProcessor config k2) <>0 retvalue 4machine -- General purpose 4-wide stuff gotomain location 8"\mainmenu\ .tbk" -- PlayWave -- Plays passed wave file -- Waits finish 4returning -- opens closes waveaudio device -- will abort ferror message -- already theFile ZstrOpen " && &&& "type }alias wavefile" tbkMCIchk( =,"",1,1) "play 0 wait","",1,1) G,"",1,1) eatclicks () a Video -- Need video ( PlayVideo ,thePlace " && AVIVideo video1 style popup " && sysClientHandle ,"",1,1) tbkMCIPositionWindow( ","",1,1) eatClicks() -- PlayAnimation: animation ( {which holds place ( " && anim1 ,"",1,1) c:\toolbook\flow.fli ","",1,1) ","",1,1) -- Alter: one does {animations alter obj,slice ZCx1,Cx2,Cy1,Cy2,Gx1,Gx2,Gy1,Gy2 ZIx1,Ix2,Iy1,Iy2 going Plast coming Pfirst newBounds yieldApp() -- default -- locks -- unlocks -- If use exitbook objectFromPoint( -- ignore xreleased over Field enterbook changeFieldFormat initBook EditBookScript resources author reader EditObjectScript gotomain PlayWave EditPageScript PlayVideo PlayAnimation alter GetBoundsOfSelection leavepage enterpage exitbook Arial14Field mouseleave mouseenter groups split_groups GetProcessor enterbook PMM.SBK PMM.SBK TBKMM.SBK TBKMM.SBK ulinitbook resources &Utility Edit &Page Script &Utility Edit &Book Script &Utility Edit &Object Script &Utility &Get Bounds of Selection &Utility &Style Arial 14 Field &Style EditPageScript EditBookScript EditObjectScript GetBoundsOfSelection clear oldSelect split_groups group Wungroup theobj retval objlist Arial14Field changeFieldFormat Arial changeFieldFormat theObj objlist newSize newFace initBook TBKWIN.DLL xUnitsFromPixels yUnitsFromPixels GetSystemMetrics PeekMessage kernel GlobalAlloc GlobalLock GlobalUnlock GlobalFree GetMyFlags GetWinFlags mycursor.dll SetSpecialCursor GetSpecialCursor GetSystemMetrics GetSystemMetrics getSystemMetrics GetSystemMetrics GetSystemMetrics GetSystemMetrics GetSystemMetrics yUnitsFromPixels xUnitsFromPixels clientarea_x_units clientarea_y_units clientarea_x clientarea_y bheight bwidth capHeight height width buttoncolor nonclickable clickable curstep GetProcessor GetMyFlags retvalue config resources GetProcessor machine author reader ulinitBook gotomain \mainmenu\mainmenu.tbk location PlayWave type waveaudio alias wavefile tbkMCIchk play wavefile from 0 wait tbkMCIchk close wavefile tbkMCIchk eatclicks strOpen theFile PlayVideo type AVIVideo alias video1 style popup parent tbkMCIchk tbkMCIPositionWindow play video1 from 0 wait tbkMCIchk close video1 tbkMCIchk eatClicks video1 strOpen thePlace theFile PlayAnimation alias anim1 style popup tbkMCIchk anim1 tbkMCIPositionWindow play anim1 wait tbkMCIchk close anim1 tbkMCIchk strOpen thePlace theFile alter Plast Pfirst yieldApp newBounds coming going slice leavepage enterpage exitbook location mouseleave SetSpecialCursor mouseenter SetSpecialCursor [#| !9 t!w H>:PHYSSIZE SetSpecialCursor("Special2") "vo1" "vo2" tbkMCIchk ("close wavefile","",1,1) \animatio\a7. # type waveaudio alias Splay 0 hold","",1,1) mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup close wavefile tbkMCIchk open \animatio\a7.wav type waveaudio alias wavefile tbkMCIchk play wavefile from 0 hold tbkMCIchk B:PHYSSIZE 5730,3240,8505,4920 "wrong" 5730,3240,8505,4920 "answer" playwave ("\animatio\a5. enterpage enterpage right wrong right wrong answer clear answer vplaywave \animatio\a5.wav * R :PHYSSIZE :PHYSSIZE answer theKey,IsShift,IsCtrl = keyEnter checkanswer keychar keychar checkanswer IsCtrl IsShift theKey Is it an object, frame, or morph animation?n?on the Animation button below? Object, frame, or morph? wrong plast 9690,2655,9870,2805 pfirst 9690,2475,9900,2670 text1 pfirst 765,2670,5745,2670 plast 765,1575,5745,2670 Try again. The animation that plays is a frame animation. r own graphics. right plast 5730,3240,8505,4920 pfirst 9690,2655,9870,2805 text1 plast 765,1575,5745,2670 pfirst 765,2670,5745,2670 That's right! The animation that plays is a frame animation. :PHYSSIZE Repeat SetSpecialCursor("Special2") "vo2" playwave ("\animatio\a5. mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup vplaywave \animatio\a5.wav :PHYSSIZE :PHYSSIZE :PHYSSIZE SetSpecialCursor("Special2") "vo1" PlayVideo("\animatio\3titewad.avi"),(" "answer" mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup PlayVideo \animatio\3titewad.avi answer :PHYSSIZE frame animation 5730,3240,8505,4920 theFile "\animatio\al06.avi" strOpen " && .&& "type AVIVideo alias video1 style popup " && sysClientHandle tbkMCIchk( _,"",1,1) tbkMCIPositionWindow( "tavia","") B"play 0","",1,1) g"close ","",1,1) enterpage leavepage enterpage \animatio\al06.avi type AVIVideo alias video1 style popup parent tbkMCIchk tavia tbkMCIPositionWindow play video1 from 0 tbkMCIchk video1 strOpen theFile leavepage close video1 tbkMCIchk :PHYSSIZE text1 plast 1665,1605,4800,4095 pfirst 1665,4095,4800,4095 This concludes the Animation lesson. :PHYSSIZE text1 pfirst 1665,4095,4800,4095 plast 1665,1605,4800,4095 Topics covered: text3 pfirst -1350,3330,1155,3750 plast 1830,3330,4335,3750 Frame Animation text2 plast 1845,2760,4170,3300 pfirst -1965,2760,360,3300 Object Animation plane pfirst 5355,1333,7866,2625 plast 5355,4783,7866,6075 tavia SetSpecialCursor("Special2") PlayVideo("\animatio\al06.avi"),("tavia") ouseEnter mouseLeave mouseEnter buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttonup PlayVideo \animatio\al06.avi tavia :PHYSSIZE SetSpecialCursor("Special2") 4machine Zspeed "cover" pfirst 2265,5145,2445,5250 plast 0,-210,9615,7245 alter ZstrOpen, theFile "\animatio\airport.avi" " && 3 && "type AVIVideo alias video1 style popup " && sysClientHandle tbkMCIchk(stropen,"",1,1) tbkMCIPositionWindow( \,"","") <"play qfullscreen 0 wait","",1,1) e"close ","",1,1) 0,-210,9615,7245 2265,5145,2445,5250 ouseEnter mouseLeave mouseEnter buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttonup cover cover pfirst cover plast alter cover \animatio\airport.avi type AVIVideo alias video1 style popup parent stropen tbkMCIchk tbkMCIPositionWindow play video1 fullscreen from 0 wait tbkMCIchk close video1 tbkMCIchk cover pfirst cover plast alter cover cover video1 strOpen theFile speed machine :PHYSSIZE :PHYSSIZE :PHYSSIZE text1 plast 615,1695,3285,4350 pfirst 615,7185,3285,9840 Frame animation is made up of different frames or screens, rapidly displayed to simulate motion. displayed to simulate motion.te motion. tbkMCIchk (" \media\pig.wav type waveaudio alias wavefile","",1,1) Fplay 0 hold","",1,1) yeildApp () 4flag, travel sysDrawDirect syslineStyle close enterPage leavePage enterPage clear travel leavePage 6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(6(h/h/h/p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1p1 rect 1 text1 pfirst 585,-1050,3150,120 plast 585,1515,3150,2685 Try making your own object animation! Point to the pig, then press and hold the mouse button while you draw a path for the pig to follow. When you release the mouse button, the pig will fly!ate!e!e!e!plane to follow. When you release the mouse button, the plane will animate! object 1 g $ v $ B X B : $ object 1 :PHYSSIZE SetSpecialCursor("Special2") checkanswer eatclicks() "frame" animation" pfirst 5730,3240,8505,4920 plast 9690,2655,9870,2805 alter "wrong" 5730,3240,8505,4920 9690,2475,9900,2670 5730,3240,8505,4920 mouseLeave mouseEnter buttonup checkanswer mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttonup checkanswer eatclicks checkanswer answer frame frame animation frame frame animation right right pfirst right plast alter right right wrong wrong pfirst wrong plast alter wrong right wrong wrong answer answer answer tbkMCIchk openwave text1 plast 585,1515,3150,2685 pfirst 585,-1050,3150,120 Creating an object animation usually involves specifying a path for the animated object to follow. plane plast 5355,1333,7866,2625 pfirst 5355,4783,7866,6075 5355,1333,7866,2625 4machine Zspeed 4openwave "text1" 615,5070,3285,5115 yeildApp() pfirst 615,5070,3285,5115 plast 615,2055,3285,5115 alter tbkMCIchk ("close wavefile","",1,1) 615,2055,3285,5115 615,5055,3285,5115 enterpage leavepage enterpage text1 text1 yeildApp text1 text1 pfirst text1 plast alter text1 openwave speed machine leavepage close wavefile tbkMCIchk text1 pfirst text1 plast alter text1 openwave speed text1 pfirst 615,5055,3285,5115 plast 615,2055,3285,5115 Frame, or cel animation, makes it possible for a series of images to appear to blend together, creating the effect of motion.............................................................................. :PHYSSIZE :PHYSSIZE SetSpecialCursor("Special2") "vo3" PlayVideo("\animatio\celanim.avi"),(" mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup PlayVideo \animatio\celanim.avi :PHYSSIZE 615,2055,3285,5115 tbkMCIchk (" \animatio\onthmony.wav type waveaudio alias wavefile","",1,1) Lplay 0 hold","",1,1) yeildApp close enterpage leavepage enterpage open \animatio\onthmony.wav type waveaudio alias wavefile tbkMCIchk play wavefile from 0 hold tbkMCIchk yeildApp leavepage close wavefile tbkMCIchk text1 pfirst 585,-1050,3150,120 plast 585,1515,3150,2685 The usefulness of object animation in multimedia business presentations is great. text1 plast 585,1515,3150,2685 pfirst 585,-1050,3150,120 For example, you can animate your bullets as they come into or leave the screen. For more information about animation and business presentations, see the Multimedia in Business section. finpoint :PHYSSIZE :PHYSSIZE SetSpecialCursor("Special2") "vo1" PlayVideo("\animatio\finpoint.avi"),(" mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup PlayVideo \animatio\finpoint.avi finpoint :PHYSSIZE ****** ....''.. ''%%''** ''''******'' 11******11 11****** ******''.. ........ ''''''%% %%%%%% 11**''% (((((( ))))%% %%%%%%'''''''' !/!!! --!!-- )))))))))))) ----!!!!!! !!!!!! !!!!- -----!!!! !!!!!! !!!!!! %%''%% ----!! !!!!!! !!!!!! !!!!! !!!--!!!!! !!!!! !&! !!-!!!! +! -!! !!!!!! " !! +! !!!!!!!!!! " !!!!!!!! !!!!!!!!! !!!!! /!!!!!!!! !!!!/ !!!!/!!!! " ! /!! / //!!!! (((( // !!!!!!! !!!! &#!!! !!!!!!!! ##### &#!!! -!!!! !!!!!!!!!!! "!!!/ !!!! &#### ((((((( --//// -!!!!!!!!! ((((&& (((((((((((( !!!!!!!!// -!!!!!!!& !----// --// ------ -- !!!!!!! !!!!!!!!! &&&&## ---- / !!!!!!!! !!!!!!!!!!!!!! !----- // - -!!-- !!!!!!!!! !!!!!!!! !!---- !!!!!!! ##&&&& (((((((( // - !--!!!! !!!!!!! ((((((( !!!!!!!( ##(((((((( -!!----!!-!--!!!!!!!& !!!!!!!( ((&&## " ------------!!!!!!-- !!!!!+!! -------- !!!!(( """" (((((( +-((( !-! -------- ----(((((( &&#### +--!( ##-- ---- ((((( )))))) 1111****** !!!!!!!!! -- ---- !!!!-- (((((( **''''''.. !!!!!!// -------- (((((((( 11**11******----------11--**!!!!!!!!----****** !!!!!!! --------- ----- ((((((((( !!!!!!! !! ----!!!!- !!---- ((((( %%%%%% !!-------- --(-- ------ ((((( !------ ------ (((((((((((( --((( +--------*++ ((((( ((((( (----- (((+---------++ (((((( --(-!--- ------** ((((( -((---- ((--(--- !!---- --((((((( !!---!/ ----( ------ ------ ----- (((((( (( ( ((( ((((,, #"" --//- ((((( //// !!!!!!!!!!!! !!!!!-------- ----*- ((((((( ( // ( ((((++ -- --! !!!!!!!-------- (( (( ///(( !-!!!!!!!!---- ------------ // ((( !---!!!! !------ // -!!!!!!! !------ ---- !--!-- ----- (((((( ( ( ((((( - ----- --- -- --((( // ( ( (( - ----- "" !!!!---- // ((((( ( - ------ !!--- ((-- -- - / (-// && ! !!!!!!!!!!!--- ---- ---- -- !!!! !!!--!!!!------------ """""" ( &((# #!!-----!! ! #&& (((((( " ---- #!!---!!- ###((, // --!!!! !!!!!!!! ---- ---!!! !!!!!!!!!!!--++ -- ---- -!##! ----------00 ------- -!##!! ----- &&&&&& - !!##!!! ///! - -- !!!-! !!##!!!!!//-- #!//-- - !!&/( !!!!!-! - //-- !!!-!! --**-+ - // - !!!!!-!- - // - !! !--!! -- ,/&// !!--!! //- ,,&&// ------ --**** !( ,,&&&&&& !-!!!- !----**++ !!!!!!! !----**++ ////!! +!!!!!!!!!!!! !---*-- +!!!!!!!!!!!! !!--**-** ,! - +!!-!!!!!!!! !---**---**--++ -- +!!!!!!!!!!!!# !!--**-*****- ----- !!!/ !!!!!!!!!!!! *1-1* !!!/ !!!!!!!!!!!/ !!-!!!!!!!! ,,,,!!! !!--!!!!!! ---*1- &,,&, !!--!!!!! !---# !!++! ,,&, ,!!!! !!!!!!!!! !---# -! //,!!, /!!!!! --- !!!!!!!!!!!!!!!! ,!!,// /!!!!!! //-((( (//-- !!!!!!!!!!!!!!!! ( !!!!! !!--!!!!-(! !!!!!!!!!----- !!!!!!!!!!!!!!!!--! ! !!!! !! ! !!!!-- !-(! !!!!!--!--- !!!!!!!!!!!!!! !!&( !!!!! !!--!!!!!!## -!!!!!!!!!!! ,,//!!!!!!!! //(( !!!!!!!,, /! !!! !!!----!//-- !!!!!!!! "//,, #//," ,!!!! !!!!!!/ !!!-!-!! !!!!------------!!##++ "/!// ,!!!!!!/ !----!!+ ...... ------ !!!!!!!!!!!!!!!! !!!!!!-- !#!!! //,,,, !!!//" "!!/#,!/! !!!!!!, &! !!! --!---!!!!!!---------- -!-!!!!!!! !!!!!!! /,,,& !!!/!" "--/#,!/! !!!!!!,! ------!!!!!!-!!!-------- -----!!!!!!!!!!!!-!!!! !/! +!!//! ///,! /!!,! #!!!!,!! !!!!! !/& !!" !-!!!---!!!!------!------ ---!!!!!!!!!!!!!!!!!! ///,,! /,,,, /!!,! !!!,!! !!!!! !/& #!!!!!!!!!! !-!----!------- ---!!!!!!!!!!!!!!!!!!! !!!! !!! !///,!,, ,//,, ,!!,! !!!!/!! !!!!!!/!,,, ! !! !!!!!!!!!!!!!-!!---------- !!!!!!!!!!!!!!!!!!!!! !! !!/// !//,,! !!,! !!!!/!! !!!!!!!!,,, ! !! !!!!!!!!!!!!-!!!!---- -!!!!!!!!!!!!!!!!!!!!! !!/-!- (#!!//,&& !!,!! !!!!!!!! !!!!!!!!!!!!!! !!!------ !!-!!!!!!!!!!!!!! !!!!!!! (#!!///&, !!,!! ,!!!!!!!! !!!!!!!!!!!!!!!!-!!!--!- !!!!!!!!!!!!!!!!!!!!!!!!! !! !! ! !!!//&, !///// ,!,!! !!!!!!,,! !!!!!!! !!!!! !!!!!!!!!!!!!-!--!!!--!----- !!!!!!!!!!!!!!!!!!!!!!!!!! !!!!( --! !!!/,&, !//// ,!,!! !!!!!!/,! !!!!!!! !!!!!!!!!!!!!-!!!-!! ------ '--- !-!!!!!!!!!!!!!!!!!!!!!!!!!!!! &&!/ ! ,,! &/ !!!!! !!!!!!!!!! !!!!!!!!-!!--- --!!!!--$ - !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!,, ! ,,!!&/ !!!!! !!,!!!!!!!! +!!!!!!!!!!!!!!-!!!!!!-------- 1---/!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!//!!! /!!&/!! !!!!! /!!!!!!!! !! !!# -!!!!!!!!!!-!!!!!!!!!!!------ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!/!!!! !-!//,, /!!&/!! !!!!!!!!!! /!!!!!!!! !! !!!# ----!!!!!!!!!!--!!----!!!!-- $+++&&+& +++H% A933BEa )22)A@P>>GWDFD.3'=D.=D@UDU@>J>,525 ,,JW=.DD TY/11WKL ]YD63Y@J>)) %+&&&+ ++<+%KK`Y:9.?? 2))>>@G@RPPP@G=U=WG`U=G@^A> ,RUDD33WK/ 7X<`@L 6KDKBG>>), +%&&& +<%%DKWW ?.E AaA> ))2)TT>PP@@@YPYYWWGW@@PP>)a)TT, ,,JYW=DS666SW 37IKFK3KG@P>)))) %++&K& &+++&D GWQ9 F 222TT,))>)>>JJPJP>^>Ja>>PT2 ,,Z>>@@WDKK< KK=H= K==YG@>>2T>@@) !!!!H &&DKKH=UUQUE9EEN 2T2,T) 22222))))TTT>ZPP@@@@@\@@PT2 8TJT)>PPUUDDF9UGGUDD= =NNP>>)AG UU@@) )FLLLL H%+++&+ &&KKD==QUQQ9F N )))>>)P>>TJP@GGU==GUDDDU=GGY\T 8TRYP>JJPA@@NU== DFFUU U@AP^PNDFF.BDY )DW]LL %+%+& &&DKWW=G=QQ F 0 \\@>TTTTT>>PPAP\@G=.FFDDD=D DD DUGG>T, ,PGG=GG@@A@RP@GGNNN UUN UU FFFBBBDPPDS`LR %+%&+ &+&&&K=WW Q U UEUN 2)PY\JJJ>>P@PNGUD3..KFFD9.F=D==UWUG@T) 2RYU=FFF NGNU==YUGGUDFB' DF?F3..B.BBDG=S7LR H%++&+ +%KKHE U 9UQ:? ( TPJNN\JPA\N@NU==D...D..KKDD==G@@@Z, 2a@==.BF=G=U UGUDFFB?B?DDF.33F'33'''3DDF'G@L K U = ? Q:?:A E 2>Z@\@N@@N@@UUU=UGU=W=DD=Y@P>TT) 2>\UF.==UUGUGUF?...?BB.F?BB3BB'''''B'333.'@LR" U 9 G EN(??? )>JAJJJJ>@PPJ>P@\P@PJRJT) ,)TJAYQQGN=GGU F?..FF.B.FB3BB'''M''''''3B..6G 4 KHH U =9UN :99?Q 2>>TT,2)) ,)TP\@@@@GQGNNDF??EFDF9BBF.3FB'''''I'''''''.K'F ))>AAAb(NN@@@\GGGG3''.U3 F?.FDFD.BBB'3M'III'BB'36.B'CD4L =DDW U >a))22 ))))))A( (((A(NNUUA@GN@DBBFU=DFGFBF=DDDFBBB''''I'I6BB3B333'<<`L D=WW E AA)>2 22aa2222 22aT>))) ))^^P^AA^A0 Nb0((N UGNG@GDBMMUDD YDDUUDUDGDBBB''''I''6'33B333'*1H` HDDWW E ( N ? (aa>)2 2aaa222aaa\\\JPJPP>288 ))^@NG@NN@ANU NEEE @UNG@FD'F= .KYD?UUUGD@@F'.3''''663.'3F?6'''1/&` %%%%DUU= ? N((>aa2aAa22 2a((((((A>a)>) 0(( EEB? GG@G@.'''?WDNGUEFGD NP> BB3B'III'=.''..D'3''//6Y +%<%=GW= U :QN ?EEN A>aaa(aa2aa((0((aA>>)>aa0: EE EE NE???9NG@G@D'''.=DD DEGGD@@))@D'F3B'''V3GF'F3333B'B/66Y4444` ++++% K=UG= Q ?: @AAAa(Aaaaa(00(((((aaA(( ((EEEE?E(0 99F9 NNNP@NBMM3DUY=UNUU@@)) AFBUDBBV'IVD=.'D3B'D3''I66W $++++K% )aQ'U=FFBIVVV=.BFFBBF?3''7S/K4444 +++%%& QQN E A>(00( 0000AA( ?9 UQQN@@UW3BBE GNUN@@@NN TJ@. NFBFB33FDF.BUBFDB6''I//IK ++++<%K QUN (00a00(00 00aa((E UQN@\GGF'BFFN@@NJ@NNNPJ@PFF@D?FF' B.DFF=B'D.DDIIM7S6S` + UN@ :Q (00000 0((aA0 NAN E?EN N QNN@GYF'B @NNAUNG@b@)@= 9Gb.F .D=F.=F=UBBU.=.'M'6/S6` +&++H+ UQNE9 N:N0(A (0(0E NQ@\NY...UG@@NUPNAN))TGDD@@U U.NF== .@WDDGDD.''I/S6S+ $+&T>GNNPYDUWDU@F ===G=DUYUD.6''M6//* H:QQ :0:N ::(:N :(( @@Q@9EFNG\@NQJ@@\T>>>G@@PW WU=@U==UGW====Y=F6B''MIIM*4X HQN = EE @00: 00: ?E000 EEE? AE QBUQN@PN@(AN\J22TGPPP@DG@UG\Q@GU@@===G@W.3.'II6/M* - -!$$$%%% K%KHU@ 9EEEE:: ( 0:(0 ?E?(N Q (((AU UE9GAAA@Nb@@(> PGUJ@YGD@GGPQYPNNPGW9=YGG33.6II6MM*4OX ++2N@@P@NUU\@a@NP>QJGG==@L\D6..M666//* """""" &&\Y\GGGYRJJF'.'''6/SS&-XX" +&<&J@AAPG\PJG\>:\a\JJYYYYPJJY3..'I3S6S6 $$%&&<&K%$= U 9??? NE ( ( E00 (00(.(((0((A( 000((A)0((>(\\AQ:a(()A\J\(@\@>T='B3'6M'//I3OOO %+&%$$$$+&&<<a0AAaQ\((QA>0\aAaJQL\\JJPDD'3'III6666 %&&$$$$$ <<;<<&+F9=9?????E 00EA(A0(0A0 (AAa(A\A(A(QQ(A(0aAA2@@\\\J>>GFB'I/''=HKIcOO"" &<&&$$$$ &<;<<<+? FF?????9 09>00(a0a (((aAA0\AY0aQN(a:(a\)AGJ\JJ>JP=3B''''6K66/]OOO" ++&+$% A(A: A(0:aa0A0(J\A@J\ FD.''I6=IS6/ OOOO""X &&;;;2a((AYFFBII3M33KK*/HZOO"" +%+%+%<&&;C;<+%+K%KK99BBB?F9EU?F.9F9.?9B9EE99?9 0 0:00(:0 0 (E?0(( 0 Q(AA0 (000:00:0((2AA(\0=.VIV.363SKI/SW]OO"X +&&&&&%<;C;<++%KKHH?33BB??99 F.?F99B?9'99 E?9:: 00Q( 0 ( Q?E0((E 0aaA(N:99FIVV.6DIKKI/CW]OOO" ++&&&&&K&;C;<<<+%D+H?B.BB.?999?.F???.?.B9E???9 E 0 00: 00 0E EN ( 0aaa: 99FIIF=D366//ISHXZO"O" +&&&+&&&&;;+&++<$%%KFS3B.99=F3BFV3FBFVVF.?.EEE ?? Q:NE: 0((N AAA(F9FD3M.=3D3'K/M6&`X""O &&+&&&&&;;&++&<%++KF66BB?FFF3B3'3F3FIB?'B?E ????E 0:: QQ(E0N 09NEE: N: 00 FD=D6DDV=.'UII/3&`XX"" &&&&&+&;; &+&KaPJR\PY=..=YWW3*HLRO"" &&;;;;;;;CCC;CCCCC<&$+$HH WKSS//I/ 11//1 1IM//////MM'/MMI66IMI33D.I3'.F6'FV'FBF'FF6'36VVVVV3V..'..6.'VFFB3. 99QQN0Aa aA(>aJY=V6K@RDDKM; &&;;;;C>>> T;;;T;;;;QQQQ SSSS$$$$$$$$ S.SS........>>>>= TTT;;;;;;QQQQ SSSS$$$$$$$$ SS..........>>>> +L;;;;;;;;QQQQ SSSS$$$$$$$$ SS..........>>>> +L;;;;;;;;BBBB88888888 SSSS$$$$$$$$ ........ >>>>.... 11;;;;;;;;BBBB88888888 SSSS$$$$$$$$ ........ >>>>.... 11;;;;;;;;BBBB88888888 SSSS$$$$$$$$ ........ >>>>.... 111;;;;;;;;BBBB88888888 SSSS$$$$$$$$ ........ >>>>.... 111;;;;;;;;#### 88888888 ........ ....>>0U1111;;;;;;;;#### 88888888 ........ ....>TU01111;;;;;;;;#### 88888888 ........ ....>>T11111;;;;;;;;#### 88888888 ........ ....>T111111;;;;;;;;#### **************** $$$$$$$$ ++++++++++++TT 1111#### **************** $$$$$$$$ ++++++++++++T 1111#### **************** $$$$$$$$ ++++++++++++T 1111#### **************** $$$$$$$$ ++++++++++++ 1111BBBB Z----Z--9999ZZZZZZ"""""""" ++++))))UUU 1111BBBB ***** NZZZZZZZZDDKK55MMYY="[[[[Z""""" ++++))))U 1111BBBB =9999**** NN99""=M55FF((///PP 6//""[["" ++++)))) 1111BBBB =TT9%**** 9=MMMMF5FF((//PPP ++++)))) ZZZ,,,,,,,,,,,,%%%%999)2Y MIIIIF(((PPP CCCCJR"" ****----- DDDD+ ++TTTTUU ""-%ZZZ ,,,,,,,&,,,,%%%%%99)2Y MIIIIF(PP CCCCJJ6"[ ****------ UUDDDD+ ++TTT ""ZZZZ,, &&&&,,,,%%%%%" :ORYYIIIIIF(PPPPP CCCCCC33 ****- UDDDD::DDT =:00D" &,,,,,,,%%%%%" :OR2YIIIIIF((PPPP CCCCCC ****-- UDDDDRR ))))++ ,,,$&NNNN9":00 KKKKMM55PPP JJ`L--**-- DDDD::00 ,,,$&NNNN9":00 M55//P ``1-%%- D)00== ,,,$&NNNN%-"0 KK2MII55/ ``55L 9Z01DDD)))OQ55 ,,$$&NNNNN--0 22YY55/ `_5LL 9911ODD)RROQ22 --$-,,,$ NNNN--D===RRROOORR22(( /MM)999N)++ 9""Y) $$$-,,,$ NNNNNN-D===OOOOOOVVVVWW(( /M)999[))00 001)+ -$$-,,$$ NNNNN-DD==RRRRXX\\\\\\FF\ _Y)"ZZ ))01D:"0Q;:RRRI'' $$$-,,$$ NNNN-DD==KKWWFF _Y)""" )))DD::0Q;::RRI'' +=++..** NNNN[[["::RM((((/ @@666J D)))00 :::V7III?I =+++..** NNNN[[["22MM((/// 6666JJ "D)==11 :V7II?II ====+=..** NNNN[[:22WM5(//(/ JJJJ JJ ""DO111Q1)D"]V I??II ====++.*** NNNN[)22WWM5(/(/ JJJJ JJ ((E`5 ""DO1=QQ1)DD]V I??II =)O))) .**,%%%%NN[[)K WWFFFF(((//@ JJJJ ((K09 ++TLLLODDO]; .**,%%%%N[[=KKK WWFF\\(((//@@@@@JJJJ +TLLLDDOD];22 OR))) ,,%%%%[[)YYWKFFFFFFFbb\\bbb@66JJJJ +TTLLDOOOO OR)))) %%%%[ YYWWKFFFFFFFccc\bbbbbbJJJJ ++TTLTOOOO ######## ,,,,NNNN[2YWMMMF(((\RRRcc\bbbbb//@ EE`)Z"" ++==K==K ######## ,,,,NNNN22YWMMMF(P(\::Rc\\bbb@///@@ 3 JE``"" ++==K=KK ######## ,,,,NNN)YMYYMMMF((::":RRcc\\bE@@@@@@JJ@ ++===KKKK ######## ,,,,NNN)YYYKMMFF(F<<:"::Rcccbb\\\\\\(( JJEEI"DD ++==KKKK %%%%N[9MYYYYWWF5((\\((WWRR\\ccccVV\\@@ 2DDDDDDODOR %%%%N[9MYYYYWWF5((\\(((( 66@@@@EEJJ 2::D0DDODOR %%%%N[OYYYYYW\\(((\(((((/ 6 J JJJJJP))000D %%%%[NYYYYYY\\((((\\WWWW/ 6 GG JJJJJP))0000 NNNN["IM\\\\\((((\WAAARR22(( G E@@@@6666 O:==== NNNN["IM\\((\((((\AA]]::FF( E@@@@6666 OO==== NNNN[2MF(\(((//P/\R"AAAA @@PP/6 66@@@@6666 EERO====Y5= NNNN[2FF\\\(//PP/\R"\\((33 @@/6 6/@@@@6666 EJRO====55= *%%%NNNND55W\\((/ /FA(( 3333 JJJJJJJJEEEE **%%NNNND55W\\((/ /FAA( 3333 @@@JJJJJJJJEEEE 2D)): **%%NNNN2MMW\\((/ P(XXP 3333 J JJJJJJJJEEEEEEM"9TDRY5 ***%NNNNMMMW\((( P(\XP 333333 JJJJJJJJEEEEEEM"9TDRY5;; ++----**%%%N[9MMMMF5(PP PPFFF GGGG ^^^^^^^^ EEEEEEa"99== ++----**%%%N[9MMMM55(PP P(FFF GGGG ^^^^^^^^G EEEEEEa"99== ++----**%*NN[0MMMM55aa__66 GGGG ^^^^^^^^GG EEEEEE`"99==YI0= ++----**%%NN[0MMMMM555a_ GGGG ^^^^^^^^GGGGEEEEEE`"999=YI== ,,,,%%%%NNN=M5MYYY GGGGGGGGGG^^^^^^^^G G JE :""") ,,,,%%%%NNN=M5MY I6EEFMF GGGGGGGG G^GGG EE :""") ,,,,%%%%NNN=M5I 00=__+DD M/WW(6GGGGGGGG P5aa5533^^G JE`:""") ,,,,%%%%NNN=M5I ""=_++D5 M/AA(6GGGGGGGG55P5115^55G^GG JE`:""") ----%%%%9992MI 33 (M/R""D //

\<*"Q plane Cpfirst C-660,3726,6870,5280 Bplast 475,3201,7570,4755 FD"#t [#| !9 t!w H>:PHYSSIZE SetSpecialCursor("Special2") "vo1" "vo2" tbkMCIchk ("close wavefile","",1,1) \animatio\a7. # type waveaudio alias Splay 0 hold","",1,1) mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup close wavefile tbkMCIchk open \animatio\a7.wav type waveaudio alias wavefile tbkMCIchk play wavefile from 0 hold tbkMCIchk B:PHYSSIZE 4plast 9780,2556,12490,4110 -2295,3726,415,5280 C3600,4746,11130,6300 4plast C3600,4746,11130,6300 4"Ce1 BZC15,5280 4ane3 CPCpfirst -2295,3726,415,5280 7665,2556,10375,4110 -660,3726,2050,5280 Frame Animation R7.&> \<*"Q plane Bpfirst 4"C3600,4746,11130,6300 Cplast 4-660,3726,6870,5280 [#| !9 t!w H>:PHYSSIZE SetSpecialCursor("Special2") "vo1" "vo2" tbkMCIchk ("close wavefile","",1,1) \animatio\a7. # type waveaudio alias Splay 0 hold","",1,1) mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup close wavefile tbkMCIchk open \animatio\a7.wav type waveaudio alias wavefile tbkMCIchk play wavefile from 0 hold tbkMCIchk B:PHYSSIZE 4plast 7665,2556,10375,4110 -660,3726,2050,5280 4ane3 -2295,3726,415,5280 9780,2556,12490,4110 -2295,3726,415,5280 4pfirst BRC3600,4746,11130,6300 4plast C,3201,7570,4755 :PHYSSIZE text1 pfirst -2130,2760,375,3180 plast 1815,2760,4320,3180 In this lesson, you will learn about:n making mu text2 plast -2415,1770,180,2475 pfirst 1815,3375,4140,3915 Object Animation reminder :PHYSSIZE text1 plast 855,1770,3450,2475 pfirst -2415,1770,180,2475 Remember to click on these buttons whenever you see them in the lesson. SetSpecialCursor("Special2") "vo1" tbkMCIchk("close video1","",1,1) theFile "\animatio\cheshire.avi" strOpen " && 2&& "type AVIVideo alias ^ style popup " && sysClientHandle S,"",1,1) tbkMCIPositionWindow( "tavia","") play 0","",1,1) mouseLeave mouseEnter buttondown buttonup mouseEnter Special2 SetSpecialCursor mouseLeave SetSpecialCursor buttondown buttonup close video1 tbkMCIchk \animatio\cheshire.avi type AVIVideo alias video1 style popup parent tbkMCIchk tavia tbkMCIPositionWindow play video1 from 0 tbkMCIchk SetSpecialCursor video1 strOpen theFile :PHYSSIZE tavia :PHYSSIZE text3 pfirst -2130,3375,195,3915 plast 1815,3375,4140,3915 Frame Animation :PHYSSIZE 855,1770,3450,2475 B:PHYSSIZE 7665,2556,10375,4110 -660,3726,2050,5280 4ane3 Cpfirst DC3600,4746,11130,6300 4plast 4PC3600,4746,11130,6300 `C,3201,7570,4755 0))))0 0)##00(( #),)0 #()),) ,))),))) ))0) ( 0'))/ ( #(# 0,#(/( ())0#00 ((()( / #))),, ## /,( )),/( ##,,)0)))0 (((,( 0))#, ,#(##)) /,))) 0....0(( 0#1,0 ,),00)), )/#,, ,,#), (#(((# ()) (#((( ,,(/(( )(((##(,)0 #),,,, ,)#,,(( #))))) 0/##) #),,, ((# ( (, (( , ((#(,))0.. #((() ....)./ /...0 ((/( (((( ++.&++- ##((,) . ++++ )(((( ,,,,/(( ####) (),((( /,,,, (((()( ) .,,11 #),((,), )0,)),( /)),)((( ) ,#( ((,(( ,,#())( ,)),)) /.../ # ((,, 0/..0 //))' &.)'/) '.))) ,,1#( ,,,,#,# &0))' 1111,,, ((((( *0## ./,,,,#( ##),/)) ),,,)) (((((( #(#// ,,,)))/ #(((( ((((,,,,,, ,,,#,, ,,0(),,,#0,( #)(##(,) )/.))//) (#(0, ,0,,,,,) ((()#( ((##,,,,0)###)( ./1,111((( ,),## ((((( ((####,)) ../1,,,,#( (((((( ,,,,0 ,###)# /1,,,### ((((,#,,, ''))) #,,,,,,# ),),# (((((# )(0),## ++++++++++++ //000/// 0///////&& )#)),) (#((,, //000/-- 0///// (####,, ,,,##) )###,, ####( ##,,) ,,### &0000/ ((,,, (((((, 000/0 ,#0,,)#,)) /0//0 ,,#,) ,#,,) ,,,,,)## ,,0),## ())#) ,,((( ,,((1# ##),## ,,######,,0,,00,#)# (),)#),, ),,)0( ,,,,,, #,,#( ,,,#)))#,,,,,0#(# (#((((, (((), ),,,,, #,),, ))))' ),))( ,,,#( ))')))# ,()1##),,,,,,,)0( ')'))/ ,(,,)), ,,#,) ,)0,(((# #)##) ,(((( ((,,( (#))) ,1#,,,,, (#))) ((#)## ,)))0 )))),) ,,1#))# )#))# ,#))# #)))) )'))### #','), ),#,, (#((# #1,,)),0 ')))) ''''1 #((('' '''## '))),,#(''')))( 1,')' ##')' )),,1# ''))##,,